COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	      SUBROUTINE RDDAT
C00007 ENDMK
C⊗;
      SUBROUTINE RDDAT
      COMMON /Q/ BNW(100),NWZ /INS/INST(27),BG(60) /TYP/SOS,JOUT
     1 ,LN,ITYP,TPALN,JED
      COMMON/VV/LIMIT, V(2000) /A/ ROFF(27),NP(27),PCH(27,32),
     1 RDEV(27),IPT(27,31),XT(27),OTH(20,16),SCAL(101)
     1 ,P1(27),JFM(4),COPY(30),IFM(80)
     1 ,FINM(6),TINST(5),ENFI(5),TEDIT(4),INVIS(27)
      COMMON P(30),J,L,CNT(27),BT,PL(48),MK,DF,DUR(27) /SAM/ISAM
     1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG,IXX,ISEMI,IQT
     1 ,INP(144),VX(70),ISCA(12),IDAT(11),IAMP,K,KN,M,ML,CODE,IBLA
      COMMON/B/MOT,PR,T5,NINS,I,TP,RA,KZY,NWX,INONLY,MX,
     1 Y,Z,ISLAC,MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,KB,NL,RC,W,
     1 ZZ,CHN,YY 
     1 /D/TF,AMPFAC,OP1,DURX,IXIN,IFLNM

      TYPE 118
118      FORMAT(' TO DSK=1, TTY=2, BOTH=0, LPT=22, HELP=-1'/)
300      FORMAT(2I,4F,I)
5     FORMAT(' TYPE OUTPUT NAME  '$)
6     FORMAT(A5)
1114      FORMAT(
     1' N1=OUTPUT DEV.,  N2=RAN NUM,  N3=TEMPO FACTOR,  N4=AMPFAC'/
     1' N5=OMIT 1ST N",  N6=CUT OFF AT N",  N7=SINGLE INST NUM.'/)
3     ACCEPT 300,MX,IXIN,TF,AMPFAC,OP1,DURX,INONLY
      IF(MX.GE.0)GO TO 2 
C  NEXT TYPES HELP INFO.
      TYPE 1114
      TYPE 118
      GO TO 3
2     IF(INONLY.EQ.0)INONLY=-1
      IF(AMPFAC.EQ.0)AMPFAC=1.
      IF(DURX.EQ.0)DURX=19999.
      IF(TF.EQ.0)TF=1.
      JOUT=5
C JOUT=5=TTY  =3=LPT  ****WHAT ARE THESE ON OTHER SYSTEM?? ****
      IF(MX.EQ.22)JOUT=3
      MZ=0
      IF(MX.NE.1)MZ=-1
C MZ=-1 = PRINT ON TTY OR LPT   =0 = NO PRINT, JUST DSK OUTPUT.
      IF(MX.LT.2)MX=-1
C MX=-1 WRITES ON DSK.  =0 GOES TO TTY.
      IF(MX.GE.0)GO TO 55
      TYPE 5
      ACCEPT 6,ISLAC
      IF(ISLAC.EQ.' ')ISLAC='SCR'
C IF NO OUTPUT NAME GIVEN IT TAKES DEFAULT
      CALL OFILE(1,ISLAC)
C NOW WE READ IN OUTPUT OF 1ST 1/2 OF SCORE.
55    CALL IFILE(22,'RUNIT')
C**** THIS READS A FILE NAMED 'RUNIT.DAT' ********
22    READ(22)NINS,KZY,NWX,I,NWZ,KB,IDALL,LIMIT,IFLNM,TP
      IF(NINS.NE.-1)GO TO 1
11    READ(22),K,(INP(I),I=1,K)
      IF(K.EQ.-1)GO TO 22
C K=-1 IS END FLAG FOR 'PRECEDE' MATERIAL
      IF(MZ.LT.0)WRITE(JOUT,33)(INP(I),I=1,K)
      IF(MX.LT.0)WRITE(1,44)(INP(I),I=1,K)
      GO TO 11
44    FORMAT(80A1)
33    FORMAT(1X80A1)
C***** THESE 'A5'S PROBABLY MUST BE CHANGED FOR PDP11
1     READ(22)(INST(K),K=1,NINS),(DUR(K),K=1,NINS)
      READ(22)(V(K),K=1,I)
      READ(22)(BG(K),K=1,NINS),(NP(K),K=1,NINS)
      READ(22)(BNW(K),K=1,NWZ)
      READ(22)OTH
C INONLY IS FOR SINGLE INST. OUTPUT IF NOT NEG.
C IXIN IS RANDOM NUMB. INIT.
C YOU MUST RERUN (NOT RESTART) TO GET BACK SAME RANDOM NUMS.
      END

      FUNCTION RAND(A,B)
      RAND=A+RAN(N)*(B-A)
      END